Type rCliente
    codigo As Integer
    nombre As String * 30
    telefono As String * 15
End Type

Sub prueba_Put()
    Dim fichero As String
    Dim cliente As rCliente
    fichero = "C:\Temp\tfRandom.txt"
    Open fichero For Random As #1 Len = Len(cliente)
    Dim i As Integer
    For i = 1 To 3
        cliente.codigo = i
        cliente.nombre = "Nombre " & i
        cliente.telefono = "93" & i & "45" & i & "6789"
        Put #1, i, cliente
    Next i
    Close #1
End Sub
